﻿Public Class TestComponentInformation
    Dim PushupScore As Integer = 0
    Sub calcScore(AgeSet)
        Select Case AgeSet
            Case 1
                CalcScoreUnder29()
        End Select
    End Sub

    Sub CalcScoreUnder29()
        Dim PushupPerformed As String = AddNewTestForm.cboPushup.Text
        Select Case PushupPerformed
            Case 0 To 17
                PushupScore = 0.0
            Case 18
                PushupScore = 1.0
            Case 19
                PushupScore = 1.5
            Case 20
                PushupScore = 1.7
            Case 21
                PushupScore = 1.8
            Case 22
                PushupScore = 2.0

        End Select
        TestScore.lblPushupPerformed.Text = PushupPerformed
        TestScore.lblPushupScore.Text = PushupScore
    End Sub
End Class